home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed35.d64 / unit d-9 (.txt) < prev   
Commodore BASIC  |  2007-02-04  |  5KB  |  191 lines
  1. 10 POKE53280,0:POKE53281,0:POKE646,3:POKE53272,23:L=0:W=0:Z=0:C=0
  2. 15 PRINT"[147]                                        [146]";
  3. 20 PRINT"            [202]AMIE'S [211]PELLING            [146]";
  4. 25 PRINT"                                        [146]";
  5. 30 PRINT"                                        [146]";
  6. 35 PRINT"                [213]NIT [196]-9                [146]";
  7. 40 PRINT"                                        [146][159]":GOSUB300
  8. 45 REM THIS UNIT PREPARED BY BILL CUMBERLAND 1992:03:14
  9. 50 GOSUB700
  10. 55 GOSUB 600
  11. 60 GOTO1000
  12. 200 PRINT"[147][159]              [215][207][210][196][160][204][201][211][212]                 [146]"
  13. 205 PRINT" SCURRYING  TRIES    APPLIED  CARRIED
  14. 210 [153]" PETRIFIED  WORRIES  FRYING   BUYING"
  15. 215 [153]" SATISFIED  DRYING   SUPPLIED RELYING"
  16. 220 [153]" HURRYING   DENIES   COPIED   BURIES"
  17. 225 [153]" MULTIPLIED EMPTIED  CRIES    REPLIES ":[141]401
  18. 230 [142]
  19. 240 [141]400
  20. 245 [153]"LIST* (null)NSCRAMBLE THIS SYSROOTLIST WORD.  (null)HEN
  21. 250 PRINT"  ADD A [158]SUFFIX[155] TO FORM A LIST WORD.":GOSUB401:GOSUB560
  22. 255 RETURN
  23. 270 PRINT"               [195][207][210][210][197][195][212]!                 [146]":GOSUB500:RETURN
  24. 280 REM IF X=1THENGOSUB290
  25. 282 PRINT"[150]            [215]HOOPS!  [206]O!                [146]":X=X+1:GOSUB530:GOSUB402
  26. 284 PRINT"[145][145]            [212]RY AGAIN                   [153]":GOSUB402:GOSUB560
  27. 286 PRINT"[145][145]                                        [145][145]"
  28. 288 PRINT"[145][145]                                        [145][145]":RETURN
  29. 290 PRINT"[150][145][145]>> [212]HE CORRECT WORD IS........       ":GOSUB530
  30. 295 PRINT"                                    [145][153]":RETURN
  31. 300 GOSUB402:GOSUB560
  32. 305 PRINT"[154]      [208]RESS [211][208][193][195][197][160][194][193][210][160]TO CONTINUE       [146][155]"
  33. 310 GETR$:IFR$<>CHR$(32)THEN310
  34. 315 RETURN
  35. 400 FORT=1TO 500:NEXT:RETURN
  36. 401 FORT=1TO 1000:NEXT:RETURN
  37. 402 FORT=1TO 2000:NEXT:RETURN
  38. 403 FORT=1TO 3000:NEXT:RETURN
  39. 404 FORT=1TO 4000:NEXT:RETURN
  40. 405 FORT=1TO 5000:NEXT:RETURN
  41. 500 REM <YES> SOUND
  42. 505 S=54272:FORE=STOS+28:POKEE,0:NEXT
  43. 510 POKE54296,15:POKE54277,42:POKE54278,250
  44. 515 POKE54276,23:POKE54273,23:POKE54272,191
  45. 520 FORT=1TO100:NEXT:POKE54276,32:FORT=1TO200:NEXT
  46. 525 POKE54296,0:RETURN
  47. 530 REM <NO> SOUND
  48. 535 S=54272:FORE=STOS+28:POKEE,0:NEXT
  49. 540 POKE54296,15:POKE54277,18:POKE54278,242
  50. 545 POKE54276,33:POKE54273,4:POKE54272,48
  51. 550 FORT=1TO300:NEXT:POKE54276,32:FORT=1TO400:NEXT
  52. 555 POKE54296,0:RETURN
  53. 560 REM <BLIP> SOUND
  54. 565 S=54272:FORE=STOS+28:POKEE,0:NEXT
  55. 570 POKE54296,8:POKE54277,42:POKE54278,250
  56. 575 POKE54276,23:POKE54273,23:POKE54272,191
  57. 580 FORT=1TO30:NEXT:POKE54276,32:FORT=1TO50:NEXT
  58. 585 POKE54296,0:RETURN
  59. 600 PRINT"[147][153]     [212]HERE ARE TEN QUESTIONS":GOSUB401
  60. 610 PRINT"     [217]OUR PERFORMANCE WILL BE SCORED.":GOSUB401
  61. 620 GOSUB300
  62. 630 PRINT"[147] AND AWAY WE GO .........":GOSUB402:GOSUB500:GOSUB401
  63. 640 RETURN
  64. 700 PRINT"[159][147]               [199]AME [208]LAN                [146]
  65. 705 [153]"     (null)HEN A WORD ENDS IN SYSYOPEN PRECEDED
  66. 710 PRINT"     BY A CONSONANT, CHANGE THE [158]Y[159]
  67. 715 [153]"     TO SYSIOPEN BEFORE ADDING A SUFFIX             DEFOTHEROPEN THAN INGOPEN.
  68. 720 GOSUB403:PRINT"               [197][216][193][205][208][204][197][211]":GOSUB560:GOSUB401
  69. 725 PRINT"[153]           WORRY + ES[159] = [153]WORRIES":GOSUB402
  70. 730 PRINT"            COPY + ED[159] = [153]COPIED":GOSUB402
  71. 735 PRINT"            BUY + ING[159] = [153]BUYING":GOSUB402
  72. 740 PRINT"            FRY + ING[159] = [153]FRYING":GOSUB402
  73. 750 PRINT"   ROOT WORD + SUFFIX = NEW WORD":GOSUB560:GOSUB560:GOSUB402
  74. 755 GOSUB300
  75. 760 RETURN
  76. 1000 REM # 1
  77. 1005 GOSUB200:GOSUB240:X=0
  78. 1010 PRINT"[153]                 TYR  [158]"
  79. 1015 INPUT A$
  80. 1020 IFA$="TRIES"THEN GOSUB270:GOSUB402:GOTO1050
  81. 1025 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1035
  82. 1030 Z=Z+1:GOSUB280:GOTO1015
  83. 1035 PRINT"                TRIES   "
  84. 1040 GOSUB300
  85. 1049 :
  86. 1050 REM # 2
  87. 1055 GOSUB200:GOSUB240:X=0
  88. 1060 PRINT"[153]                CRYAR   [158]"
  89. 1065 INPUT A$
  90. 1070 IFA$="CARRIED"THEN GOSUB270:GOSUB402:GOTO1100
  91. 1075 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1085
  92. 1080 Z=Z+1:GOSUB280:GOTO1065
  93. 1085 PRINT"               CARRIED   "
  94. 1090 GOSUB300
  95. 1100 REM # 3
  96. 1105 GOSUB200:GOSUB240:X=0
  97. 1110 PRINT"[153]                YUB   [158]"
  98. 1115 INPUT A$
  99. 1120 IFA$="BUYING"THEN GOSUB270:GOSUB402:GOTO1150
  100. 1125 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1135
  101. 1130 Z=Z+1:GOSUB280:GOTO1115
  102. 1135 PRINT"              BUYING  "
  103. 1140 GOSUB300
  104. 1149 :
  105. 1150 REM # 4
  106. 1155 GOSUB200:GOSUB240:X=0
  107. 1160 PRINT"[153]              FATISSY      [158]"
  108. 1165 INPUT A$
  109. 1170 IFA$="SATISFIED"THEN GOSUB270:GOSUB402:GOTO1200
  110. 1175 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1185
  111. 1180 Z=Z+1:GOSUB280:GOTO1165
  112. 1185 PRINT"             SATISFIED  "
  113. 1190 GOSUB300
  114. 1200 REM # 5
  115. 1205 GOSUB200:GOSUB240:X=0
  116. 1210 PRINT"[153]               LYRE   [158]"
  117. 1215 INPUT A$
  118. 1220 IFA$="RELYING"THEN GOSUB270:GOSUB402:GOTO1250
  119. 1225 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1235
  120. 1230 Z=Z+1:GOSUB280:GOTO1215
  121. 1235 PRINT"            RELYING   "
  122. 1240 GOSUB300
  123. 1249 :
  124. 1250 REM # 6
  125. 1255 GOSUB200:GOSUB240:X=0
  126. 1260 PRINT"[153]               ENDY     [158]"
  127. 1265 INPUT A$
  128. 1270 IFA$="DENIES"THEN GOSUB270:GOSUB402:GOTO1300
  129. 1275 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1285
  130. 1280 Z=Z+1:GOSUB280:GOTO1265
  131. 1285 PRINT"              DENIES   "
  132. 1290 GOSUB300
  133. 1300 REM # 7
  134. 1305 GOSUB200:GOSUB240:X=0
  135. 1310 PRINT"[153]               POCY    [158]"
  136. 1315 INPUT A$
  137. 1320 IFA$="COPIED"THEN GOSUB270:GOSUB402:GOTO1350
  138. 1325 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1335
  139. 1330 Z=Z+1:GOSUB280:GOTO1315
  140. 1335 PRINT"              COPIED     "
  141. 1340 GOSUB300
  142. 1349 :
  143. 1350 REM # 8
  144. 1355 GOSUB200:GOSUB240:X=0
  145. 1360 PRINT"[153]                TEMPY    [158]"
  146. 1365 INPUT A$
  147. 1370 IFA$="EMPTIED"THEN GOSUB270:GOSUB402:GOTO1400
  148. 1375 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1385
  149. 1380 Z=Z+1:GOSUB280:GOTO1365
  150. 1385 PRINT"               EMPTIED "
  151. 1390 GOSUB300
  152. 1400 REM # 9
  153. 1405 GOSUB200:GOSUB240:X=0
  154. 1410 PRINT"[153]              RYHUR   [158]"
  155. 1415 INPUT A$
  156. 1420 IFA$="HURRYING"THEN GOSUB270:GOSUB402:GOTO1450
  157. 1425 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1435
  158. 1430 Z=Z+1:GOSUB280:GOTO1415
  159. 1435 PRINT"            HURRYING    "
  160. 1440 GOSUB300
  161. 1449 :
  162. 1450 REM # 10
  163. 1455 GOSUB200:GOSUB240:X=0
  164. 1460 PRINT"[153]                WYROR     [158]"
  165. 1465 INPUT A$
  166. 1470 IFA$="WORRIES"THEN GOSUB270:GOSUB402:GOTO1600
  167. 1475 IFX=1THENGOSUB290:W=W+1:GOSUB402:GOTO1485
  168. 1480 Z=Z+1:GOSUB280:GOTO1465
  169. 1485 PRINT"              WORRIES     "
  170. 1490 GOSUB300
  171. 1600 REM SCORE BOARD
  172. 1605 K=Z-W:C=10-Z
  173. 1610 PRINT"[147][200]ERE IS YOUR SCORE FOR [213]NIT [196]-9:"
  174. 1615 PRINT"[206]UMBER OF QUESTIONS                     [195][207][210][210][197][195][212] [207][206] [153][198][201][210][211][212] [212][210][217]  "C
  175. 1620 PRINT"[206]UMBER OF QUESTIONS                     [195][207][210][210][197][195][212] [207][206] [158][211][197][195][207][206][196] [212][210][217] "K
  176. 1625 PRINT"[206]UMBER OF QUESTIONS                     [195][207][210][210][197][195][212][160][207][206][160][150][212][200][201][210][196] [212][210][217]  "W
  177. 1630 PRINT"":GOSUB403:GOSUB300
  178. 1650 :
  179. 1655 PRINT"[147][158][217]OU NOW HAVE A CHOICE:
  180. 1660 [153]"(null)RESS  R WAIT TO REPEAT THIS UNIT
  181. 1665 PRINT"[208]RESS  M [146] TO RETURN TO THE DISK MENU
  182. 1670 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"M"[137]1670
  183. 1675 [139]R$[178]"R"[167][140]:[137]10
  184. 1680 [153]"LOAD(null)ETURNING TO THE DISK (null)VAL(null)(null)
  185. 1685 LOAD"MENU",8
  186. 1690 RUN
  187. 1695 END
  188. 1700 REM DESIGNED BY BILL CUMBERLAND 92:01:13
  189. 1710 REM FOR MY GRANDSON, JAMIE.
  190. 1720 REM SPELLING D - MODERN CURRICULUM PRESS
  191.